home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 001-025 / scopedisk14 / tcell / nvk.def < prev    next >
Text File  |  1995-03-18  |  1KB  |  26 lines
  1. (*===========================================================================*)
  2. (*                          Which disk changed                               *)
  3. (*===========================================================================*)
  4. (*                                                                           *)
  5. (*              Original : Writen by David Siebert                           *)
  6. (*                         08-feb-88                                         *)
  7. (*===========================================================================*)
  8. (*                                                                           *)
  9. (*             Modified  : 02-may-88 David Siebert                           *)
  10. (*                         converted from vk to nvk                          *)
  11. (*                                                                           *)
  12. (*===========================================================================*)
  13. DEFINITION MODULE NVK;
  14.    TYPE
  15.       DriveInfo  = RECORD
  16.                  IsHere : BOOLEAN;
  17.                  LastChange:LONGCARD;
  18.                  END; (* record *)
  19.    
  20.    VAR
  21.      Di: ARRAY[0..3] OF DriveInfo;
  22.  
  23.    PROCEDURE Change():LONGCARD;
  24.  
  25. END NVK.
  26.